home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b+ boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  779b  |  23 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 2000 ifa=0thengosub61000
  3. 2010 ifa=0thena=1:load"b+",dv,1
  4. 2020 sys49152:new
  5. 61000 poke53281,0:poke53280,0:print"[147][158]"
  6. 61010 fori=1to11:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  7. 61020 fori=1to11:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next:print"[158]"
  8. 61030 fori=217to242:pokei,peek(i)or128:next:poke214,5
  9. 61040 print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]
  10. 61050 [130]:[151]214,6:[151]211,4:[158]58732
  11. 61060 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  12. 61070 [153][163]5)"listnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewsys"
  13. 61080 [151]214,16:[151]211,4:[158]58732
  14. 61090 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  15. 61100 [153][163]5)"ononpokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefresys":[151]214,8:[153]
  16. 61110 a$[178]"peek+":[141]61160
  17. 61120 a$[178]"by mid$on (NULL)attson":[141]61160
  18. 61130 a$[178]" ":[141]61160
  19. 61135 a$[178]"(NULL)ubscriptions 1-800-594-3370":[141]61160
  20. 61140 a$[178]"(len) 1989 (NULL)oftdisk":[141]61160
  21. 61150 [151]214,23:[153]:[153][163]12)"  (NULL) (NULL) atnclosestr$closeright$close(NULL)closechr$  ":[142]
  22. 61160 [153][166]20[171][195](a$)[173]2)"print#"a$:[142]
  23.